home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / easynet.zip / DEMO.ZIP / ABOUT.FRM next >
Text File  |  1995-12-26  |  7KB  |  206 lines
  1. VERSION 4.00
  2. Begin VB.Form About 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "About ""Welcome to EasyNet"""
  7.    ClientHeight    =   3870
  8.    ClientLeft      =   1380
  9.    ClientTop       =   1440
  10.    ClientWidth     =   4680
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   4275
  22.    Left            =   1320
  23.    LinkTopic       =   "Feuille1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   3870
  27.    ScaleWidth      =   4680
  28.    Top             =   1095
  29.    Width           =   4800
  30.    Begin VBX.EasyNet Net1 
  31.       Alignment       =   7  'Center - MIDDLE
  32.       BackColor       =   &H00E0FFFF&
  33.       DrawColor       =   &H000000FF&
  34.       DrawWidth       =   1
  35.       FillColor       =   &H00E0FFFF&
  36.       FontBold        =   0   'False
  37.       FontItalic      =   -1  'True
  38.       FontName        =   "Arial"
  39.       FontSize        =   8.25
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       ForeColor       =   &H00000000&
  43.       Height          =   3885
  44.       Hiding          =   0   'False
  45.       ImageFile       =   ""
  46.       Left            =   0
  47.       License         =   "ABOUT.frx":0000
  48.       MultiSel        =   -1  'True
  49.       ScrollBars      =   0  'None
  50.       TabIndex        =   6
  51.       Top             =   0
  52.       Version         =   182
  53.       Width           =   4695
  54.       xGrid           =   15
  55.       yGrid           =   15
  56.       Begin VB.CommandButton Commande1 
  57.          Appearance      =   0  'Flat
  58.          BackColor       =   &H80000005&
  59.          Cancel          =   -1  'True
  60.          Caption         =   "&Ok"
  61.          Height          =   435
  62.          Left            =   1800
  63.          TabIndex        =   7
  64.          Top             =   3300
  65.          Width           =   1065
  66.       End
  67.       Begin VB.Label Etiquette1 
  68.          Appearance      =   0  'Flat
  69.          BackColor       =   &H00E0FFFF&
  70.          Caption         =   $"ABOUT.frx":0002
  71.          BeginProperty Font 
  72.             name            =   "MS Sans Serif"
  73.             charset         =   0
  74.             weight          =   400
  75.             size            =   9.75
  76.             underline       =   0   'False
  77.             italic          =   0   'False
  78.             strikethrough   =   0   'False
  79.          EndProperty
  80.          ForeColor       =   &H80000008&
  81.          Height          =   465
  82.          Left            =   390
  83.          TabIndex        =   0
  84.          Top             =   60
  85.          Width           =   3945
  86.       End
  87.       Begin VB.Label Etiquette2 
  88.          Appearance      =   0  'Flat
  89.          BackColor       =   &H00E0FFFF&
  90.          Caption         =   "Author: "
  91.          BeginProperty Font 
  92.             name            =   "MS Sans Serif"
  93.             charset         =   0
  94.             weight          =   400
  95.             size            =   8.25
  96.             underline       =   -1  'True
  97.             italic          =   0   'False
  98.             strikethrough   =   0   'False
  99.          EndProperty
  100.          ForeColor       =   &H80000008&
  101.          Height          =   225
  102.          Left            =   840
  103.          TabIndex        =   1
  104.          Top             =   1320
  105.          Width           =   675
  106.       End
  107.       Begin VB.Label Etiquette3 
  108.          Appearance      =   0  'Flat
  109.          BackColor       =   &H00C0C0C0&
  110.          Caption         =   "Telephone: 33   1   46 03 42 20"
  111.          BeginProperty Font 
  112.             name            =   "MS Sans Serif"
  113.             charset         =   0
  114.             weight          =   400
  115.             size            =   9.75
  116.             underline       =   0   'False
  117.             italic          =   0   'False
  118.             strikethrough   =   0   'False
  119.          EndProperty
  120.          ForeColor       =   &H80000008&
  121.          Height          =   255
  122.          Left            =   840
  123.          TabIndex        =   2
  124.          Top             =   2580
  125.          Width           =   3195
  126.       End
  127.       Begin VB.Label Label1 
  128.          Appearance      =   0  'Flat
  129.          BackColor       =   &H00C0C0C0&
  130.          Caption         =   "Patrick Lassalle  "
  131.          BeginProperty Font 
  132.             name            =   "MS Sans Serif"
  133.             charset         =   0
  134.             weight          =   400
  135.             size            =   9.75
  136.             underline       =   0   'False
  137.             italic          =   0   'False
  138.             strikethrough   =   0   'False
  139.          EndProperty
  140.          ForeColor       =   &H80000008&
  141.          Height          =   255
  142.          Left            =   840
  143.          TabIndex        =   3
  144.          Top             =   1560
  145.          Width           =   3195
  146.       End
  147.       Begin VB.Label Label2 
  148.          Appearance      =   0  'Flat
  149.          BackColor       =   &H00C0C0C0&
  150.          Caption         =   $"ABOUT.frx":0049
  151.          BeginProperty Font 
  152.             name            =   "MS Sans Serif"
  153.             charset         =   0
  154.             weight          =   400
  155.             size            =   9.75
  156.             underline       =   0   'False
  157.             italic          =   0   'False
  158.             strikethrough   =   0   'False
  159.          EndProperty
  160.          ForeColor       =   &H80000008&
  161.          Height          =   735
  162.          Left            =   840
  163.          TabIndex        =   4
  164.          Top             =   1800
  165.          Width           =   3195
  166.       End
  167.       Begin VB.Label Label3 
  168.          Appearance      =   0  'Flat
  169.          BackColor       =   &H00C0C0C0&
  170.          Caption         =   "Compuserve: 100325,725"
  171.          BeginProperty Font 
  172.             name            =   "MS Sans Serif"
  173.             charset         =   0
  174.             weight          =   400
  175.             size            =   9.75
  176.             underline       =   0   'False
  177.             italic          =   0   'False
  178.             strikethrough   =   0   'False
  179.          EndProperty
  180.          ForeColor       =   &H80000008&
  181.          Height          =   255
  182.          Left            =   840
  183.          TabIndex        =   5
  184.          Top             =   2880
  185.          Width           =   3195
  186.       End
  187.    End
  188. End
  189. Attribute VB_Name = "About"
  190. Attribute VB_Creatable = False
  191. Attribute VB_Exposed = False
  192. Private Sub Commande1_Click()
  193.   Unload Me
  194. End Sub
  195.  
  196. Private Sub Form_Load()
  197.   Net1.EditAction = 0
  198.   Net1.X1 = 2000
  199.   Net1.X2 = 2600
  200.   Net1.Y1 = 700
  201.   Net1.Y2 = 1200
  202.   Net1.Text = "Hello!"
  203.   Net1.Item = 0
  204. End Sub
  205.  
  206.